unit URelRecebimentosPeriodo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver,
   StdCtrls, cxTextEdit, utils,
  cxMaskEdit, cxDropDownEdit, cxCalendar, Buttons, uRelatorioRecebimentosPeriodo,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver;

type
  TfRecebimentosPeriodo = class(TForm)
    btnOpen: TBitBtn;
    cxDateEdit2: TcxDateEdit;
    cxDateEdit1: TcxDateEdit;
    lbl_Data: TLabel;
    lbl1: TLabel;
    lbl37: TLabel;
    procedure btnOpenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fRecebimentosPeriodo: TfRecebimentosPeriodo;
  relRecPer : TFRelatorioRecebimentosPeriodo;

implementation

{$R *.dfm}

procedure TfRecebimentosPeriodo.btnOpenClick(Sender: TObject);
var
  dataI, dataF: string;
begin
  DateTimeToString(dataI,'dd/mm/yyyy',cxDateEdit1.Date);
  DateTimeToString(dataf,'dd/mm/yyyy',cxDateEdit2.Date);
  relRecPer := TFRelatorioRecebimentosPeriodo.Create(application);
  relRecPer.load(dataI, dataF);
  relRecPer.ShowModal;
 end;

procedure TfRecebimentosPeriodo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  relRecPer.free;
end;

end.
